home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / savebufferas.ifx.pre < prev    next >
Text File  |  2004-08-03  |  2KB  |  58 lines
  1. /*
  2.  * $VER: SaveBufferAs.ifx.pre 2.5 (11.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  * Save main buffer.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Sequence number (?)
  10.  *    Word(Arg(1),2) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. base = 'Autofx_SaveBufferAs_'
  20. seq  = WORD(ARG(1),1)
  21.  
  22. lastpath = GETCLIP(base||'Path'||seq)
  23. lasttype = GETCLIP(base||'Type'||seq)
  24. lastopts = GETCLIP(base||'Opts'||seq)
  25. lastext  = GETCLIP(base||'Ext'||seq)
  26.  
  27. IF lastext = "" & lastpath = "" THEN lastext = ".new"
  28.  
  29. IF lastpath = "" THEN DO
  30.    GetPrefs SavePath
  31.    lastpath = result
  32.    END
  33.  
  34. IF lasttype = "" THEN lasttype = "ILBM"
  35.  
  36. Gadget.1 = 'STRING  120  5 200 14 "Output Path:" "'lastpath'"'
  37. Gadget.2 = 'STRING  120 20  80 14 "Output Format:" "'lasttype'"'
  38. Gadget.3 = 'STRING  120 35 200 14 "Format Options:" "'lastopts'"'
  39. Gadget.4 = 'FILEREQ 321  5  20 14 "Output Path:" "'lastpath'" AT=1 DIRONLY'
  40. Gadget.5 = 'TEXT    206 23   1  1 "EG: ILBM, JPEG, TIFF" 1'
  41. Gadget.6 = 'STRING  120 50 200 14 "New Extension:" "'lastext'"'
  42. Gadget.7 = 'TEXT    120 66   1  1 "(** = current frame number)" 1'
  43. Gadget.8 = 'END'
  44.  
  45. NewComplexRequest '"Save Buffer As"' Gadget 360 84
  46. IF rc ~= 0 THEN EXIT rc
  47.  
  48. lastpath = result.1
  49. lasttype = result.2
  50. lastopts = result.3
  51.  
  52. CALL SETCLIP(base||'Path'||seq, lastpath)
  53. CALL SETCLIP(base||'Type'||seq, lasttype)
  54. CALL SETCLIP(base||'Opts'||seq, lastopts)
  55. CALL SETCLIP(base||'Ext'||seq,  result.6)
  56.  
  57. EXIT
  58.